home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene Storm
/
Scene Storm - Volume 1.iso
/
coding
/
asm
/
demos
/
sinescroll_1
/
inner_city_hb.s
next >
Wrap
Text File
|
1980-01-03
|
9KB
|
383 lines
SECTION Uno-Pixel,code_c
; opt c-
pheight = 200
pwidth = 40
psize = pwidth*pheight
execbase = 4
openlib = -408
closelib = -414
**************************************
fontheight = 16
**************************************
run: * no doubt or nodout
move.l $80,otrap0
move.l #prog,$80
trap #0
move.l otrap0,$80
rts
prog
movem.l d0-d7/a0-a6,-(sp)
bsr init_music
lea $dff000,a5
bsr init_stuff
bsr clearsprites
bsr buildmulus
bsr setup
move.l execbase,a6
clr.l 38(a6)
lea graphname(pc),a1
moveq #0,d0
jsr openlib(a6)
tst.l d0
beq quit
move.l d0,a1
move.l 38(a1),oldcop
jsr closelib(a6)
move #$4000,intena(a5)
move.l $6c,oldl3
move intenar(a5),d0
or #$c000,d0
move d0,saveirq
move #%001111111111111,intena(a5)
move.l #newl3,$6c
move #$80,dmacon(a5)
clr copjmp1(a5)
move.l #newcop,cop1lch(a5)
move #$8080,dmacon(a5)
clr.w bltcon1(a5)
move.l #$ffffffff,bltafwm(a5)
move #$c010,intena(a5)
wait
btst #6,$bfe001
bne.s wait
quit
move #$80,dmacon(a5)
move.l oldcop,cop1lch(a5)
clr copjmp1(a5)
move #$4000,intena(a5)
move.l oldl3,$6c
blitfinito
btst #14,dmaconr(a5)
bne.s blitfinito
bsr end_music
move #$80a0,dmacon(a5)
move saveirq,intena(a5)
move #$f,dmacon(a5)
movem.l (sp)+,d0-d7/a0-a6
rte
newl3
and #$10,intreqr(a5)
beq.s out
movem.l d0-d7/a0-a6,-(sp)
btst #10,$dff016
bne.s .skip
add #1,scrolldelay
.skip
move #$400,dmacon(a5)
bsr mighty_fine
bsr logoshaker
bsr play
move #$8400,dmacon(a5)
movem.l (sp)+,d0-d7/a0-a6
out move #$0070,intreq(a5)
rte
buildmulus
lea sinetable,a0
buildloop
move (a0),d0
mulu #40,d0
move d0,(a0)+
cmp.l #stopsine,a0
blt.s buildloop
rts
****************************************
mighty_fine
move.l #buff1,d0
move.l #buff2,d1
tst.w display_count
beq.s usea
exg.l d0,d1
move #0,display_count
bra.s skipmove
usea
move #1,display_count
skipmove
move.l d0,curscreen
move.l d1,newscreen
move d0,p6lo
swap d0
move d0,p6hi
cmp.w #0,scrolldelay
beq.s .skip
sub #1,scrolldelay
move.b #1,delay_flag
bra.s nohorizscroll
.skip
move.b #0,delay_flag
njw btst #14,dmaconr(a5)
bne.s njw
move.l #$ffffffff,bltafwm(a5)
move #0,bltamod(a5)
move #0,bltdmod(a5) ;ok
move.l #scrollzone+2,bltapth(a5)
move.l #scrollzone,bltdpth(a5)
move #$e9f0,bltcon0(a5)
move #(fontheight*64)+21,bltsize(a5)
move #$8400,dmacon(a5)
nohorizscroll
btst #14,dmaconr(a5)
bne.s nohorizscroll
move #$400,dmacon(a5)
move #$0dfc,bltcon0(a5)
move #$ffff,bltafwm(a5)
move #40,bltamod(a5)
move #38,bltbmod(a5)
move #38,bltdmod(a5)
lea scrollzone+2,a0
move.l curscreen,a3
move.l sineptr,a2
move #$8000,d6 ;Mask in D6.
moveq #19,d7
dovert
move.l a3,a1
add (a2)+,a1
move #$8400,dmacon(a5)
.wt
btst #14,dmaconr(a5)
bne.s .wt
move #$400,dmacon(a5)
move.l a0,bltapth(a5)
move.l a1,bltbpth(a5)
move.l a1,bltdpth(a5)
move d6,bltafwm(a5)
move #(fontheight*64)+1,bltsize(a5)
oksin1
ror #1,d6
bpl.s dovert
lea 2(a0),a0
lea 2(a3),a3
dbra d7,dovert
cmp.b #0,delay_flag
bne.s nochar
add #2,pixelcount
and #$f,pixelcount
bne.s nochar
move.l textptr,a0
cmp.b #$fe-32,(a0)
bne.s skipo
move #400,scrolldelay
add.l #1,a0
move.l a0,textptr
skipo
cmp.b #$ff,(a0)
bne.s notwrap
move.l #text,a0
notwrap
move.b (a0)+,d0
and #$ff,d0
lsl #1,d0
lea font,a1
lea (a1,d0),a1
move.l #scrollzone,a2
moveq #fontheight-1,d7
cloop move (a1),(a2)
lea 120(a1),a1 ;font layed out as straight line
lea 42(a2),a2
dbra d7,cloop
move.l a0,textptr
nochar btst #14,dmaconr(a5)
bne.s nochar
move #$100,bltcon0(a5)
move.l newscreen,bltdpth(a5)
move #0,bltamod(a5)
move #0,bltdmod(a5)
move #(187*64)+20,bltsize(a5)
add.l #2,sineptr
cmp.l #endsine,sineptr
blt.s exit
sub.l #endsine-sinetable,sineptr
exit rts
***************************************
graphname
dc.b 'graphics.library',0
even
gbase dc.l 0
oldcop dc.l 0
oldl3 dc.l 0
saveirq dc.w 0
display_count dc.w 0
otrap0 dc.l 0
sineptr dc.l sinetable
scrolldelay
dc.w 0
delay_flag dc.b 0
even
pixelcount
dc.w 0
setup
move.l #text,a0
loopu
move.b (a0),d0
sub.b #32,d0
move.b d0,(a0)+
cmp.b #$ff,(a0)
bne.s loopu
rts
sinetable
dc.w 0,0,0,0,0,0,0,1,1,1,1,2,2,2,3
dc.w 3,3,4,4,5,5,6,6,7,7,8,9,9,10,11
dc.w 11,12,13,14,15,15,16,17,18,19,20,21,22,23,24
dc.w 25,26,27,28,29,30,32,33,34,35,36,37,39,40,41
dc.w 42,44,45,46,48,49,50,52,53,55,56,57,59,60,62
dc.w 63,64,66,67,69,70,72,73,75,76,78,79,81,82,84
dc.w 85,86,88,89,91,92,94,95,97,98,100,101,103,104,106
dc.w 107,108,110,111,113,114,115,117,118,120,121,122,124,125,126
dc.w 128,129,130,131,133,134,135,136,137,138,140,141,142,143,144
dc.w 145,146,147,148,149,150,151,152,153,154,155,155,156,157,158
dc.w 159,159,160,161,161,162,163,163,164,164,165,165,166,166,167
dc.w 167,167,168,168,168,169,169,169,169,170,170,170,170,170,170
dc.w 170,170,170,170,170,170,170,169,169,169,169,168,168,168,167
dc.w 167,167,166,166,165,165,164,164,163,163,162,161,161,160,159
dc.w 159,158,157,156,155,155,154,153,152,151,150,149,148,147,146
dc.w 145,144,143,142,141,140,138,137,136,135,134,133,131,130,129
dc.w 128,126,125,124,122,121,120,118,117,115,114,113,111,110,108
dc.w 107,106,104,103,101,100,98,97,95,94,92,91,89,88,86
dc.w 85,84,82,81,79,78,76,75,73,72,70,69,67,66,64
dc.w 63,62,60,59,57,56,55,53,52,50,49,48,46,45,44
dc.w 43,41,40,39,37,36,35,34,33,32,30,29,28,27,26
dc.w 25,24,23,22,21,20,19,18,17,16,15,15,14,13,12
dc.w 11,11,10,9,9,8,7,7,6,6,5,5,4,4,3
dc.w 3,3,2,2,2,1,1,1,1,0,0,0,0,0,0
dc.w 0,0,0,0
endsine
dc.w 0,0,0,0,0,0,0,1,1,1,1,2,2,2,3
dc.w 3,3,4,4,5,5,6,6,7,7,8,9,9,10,11
dc.w 11,12,13,14,15,15,16,17,18,19,20,21,22,23,24
dc.w 25,26,27,28,29,30,32,33,34,35,36,37,39,40,41
dc.w 42,44,45,46,48,49,50,52,53,55,56,57,59,60,62
dc.w 63,64,66,67,69,70,72,73,75,76,78,79,81,82,84
dc.w 85,86,88,89,91,92,94,95,97,98,100,101,103,104,106
dc.w 107,108,110,111,113,114,115,117,118,120,121,122,124,125,126
dc.w 128,129,130,131,133,134,135,136,137,138,140,141,142,143,144
dc.w 145,146,147,148,149,150,151,152,153,154,155,155,156,157,158
dc.w 159,159,160,161,161,162,163,163,164,164,165,165,166,166,167
dc.w 167,167,168,168,168,169,169,169,169,170,170,170,170,170,170
dc.w 170,170,170,170,170,170,170,169,169,169,169,168,168,168,167
dc.w 167,167,166,166,165,165,164,164,163,163,162,161,161,160,159
dc.w 159,158,157,156,155,155,154,153,152,151,150,149,148,147,146
dc.w 145,144,143,142,141,140,138,137,136,135,134,133,131,130,129
dc.w 128,126,125,124,122,121,120,118,117,115,114,113,111,110,108
dc.w 107,106,104,103,101,100,98,97,95,94,92,91,89,88,86
dc.w 85,84,82,81,79,78,76,75,73,72,70,69,67,66,64
dc.w 63,62,60,59,57,56,55,53,52,50,49,48,46,45,44
dc.w 43,41,40,39,37,36,35,34,33,32,30,29,28,27,26
dc.w 25,24,23,22,21,20,19,18,17,16,15,15,14,13,12
dc.w 11,11,10,9,9,8,7,7,6,6,5,5,4,4,3
dc.w 3,3,2,2,2,1,1,1,1,0,0,0,0,0,0
dc.w 0,0,0,0
stopsine
***********************************************
init_stuff
move.l #piccy,d0
move d0,p1lo
swap d0
move d0,p1hi
swap d0
add.l #psize,d0
move d0,p2lo
swap d0
move d0,p2hi
swap d0
add.l #psize,d0
move d0,p3lo
swap d0
move d0,p3hi
swap d0
add.l #psize,d0
move d0,p4lo
swap d0
move d0,p4hi
swap d0
add.l #psize,d0
move d0,p5lo
swap d0
move d0,p5hi
move.l #buff1,d0
move d0,p6lo
swap d0
move d0,p6hi
move.l #logo,d0
move d0,l1lo
swap d0
move d0,l1hi
swap d0
add.l #(51*78),d0
move d0,l2lo
swap d0
move d0,l2hi
swap d0
add.l #(51*78),d0
move d0,l3lo
swap d0
move d0,l3hi
rts
clearsprites
lea $dff144,a0
moveq #7,d7
loopydo
clr.l (a0)
lea 4(a0),a0
dbra d7,loopydo
rts
text DC.B " INNER CITY ",$FE
DC.B " PRESENTS ",$FE
DC.B " A NEW CRACK ",$FE
DC.B " CODED IN 1990 BY "
DC.B " HOTWIRE/INNER CITY ",$FE
DC.B "MEGA-GREETS GOTO MOSES AND DR.DUBBS OF MODESTY "
DC.B "FOR BEING SUCH COOL DUDES .... NOW THE CREDITS OF "
DC.B "THE INTRO .... "
DC.B " CODING :"
DC.B " HOTWIRE/INNER CITY ",$FE
DC.B " - GRAPHICS : "
DC.B " POD OF INNER CITY ",$FE
DC.B "- MUSIC : "
DC.B "UNCLE TOM & ZIPHOID ",$FE
DC.B " AND IS TAKEN FROM "
DC.B "RAZOR 1911+S MUSIC DISK CALLED #DELICATE SOUNDS# "
DC.B "RIPPED BY HOTWIRE ..... "
DC.B " "
DC.B "GREETINGS GOTO ALL "
dc.b " INNER CITY MEMBERS ",$FE
dc.b "- ALSO A SPECIAL "
DC.B "GREET GOES TO "
dc.b " JROK+90 OF MAYHEM ",$FE
dc.b "- "
dc.b "A.D.S. OF INNER CITY",$FE
DC.B " - "
DC.B "Q.E.D. OF INNER CITY",$FE
dc.b " - "
DC.B " MYSTIK OF EXTREME - COUNT ZERO AND RASTER OF "
DC.B "ANTHROX - DR.C OF RED SECTOR - VANDAL AND STATIC "
DC.B "OF PARADOX - ICEMAN OF MODESTY - FIREFLY,ZARCHY,LAMESLUG"
DC.B " AND BANDASNATCH OF T.H.R. - POWERCUT OF MAYHEM - ZEUS OF "
DC.B "PUBLIC ENEMIES - DR.ZERONINE OF QUADLITE - "
DC.B "I AM SORRY IF I MISSED ANYBODY OUT , SEE MY SINE IS MELLOW "
DC.B "DEMO FOR THE FULL GREETINGS LIST ..... PRESS THE LEFT MOUSE "
DC.B "BUTT